use strict;
use warnings;

use Dogtanian;
use LWP::Simple;

command film => sub {
	my $content = get('http://imdb.com/RandomTitle');
	if ($content =~ /<meta name="title" content="(.*?)" \/>/) {
		say("Have a random film: $1");
	}
};
